home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G10F / G10_NAKA.Dxr / 00051.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.0 KB  |  102 lines
  1. global g_no, jumplistkey
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   set the cursor of sprite 11 to mycursor
  6.   set the cursor of sprite 12 to mycursor
  7.   set the cursor of sprite 13 to mycursor
  8.   set the cursor of sprite 14 to mycursor
  9.   set the cursor of sprite 15 to mycursor
  10.   set the cursor of sprite 17 to mycursor
  11.   set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6", "G7", "G8", "G9", "G10", "G11", "G12", "G13", "G14", "G15"]
  12.   set volset to the soundLevel
  13.   if the soundEnabled = 0 then
  14.     set the soundEnabled to 1
  15.   end if
  16. end
  17.  
  18. on donext
  19.   if (g_no + 1) = 16 then
  20.     set g_no to 0
  21.   end if
  22.   go(getAt(jumplistkey, g_no + 1))
  23. end
  24.  
  25. on doback
  26.   if (g_no - 1) = 0 then
  27.     set g_no to 16
  28.   end if
  29.   go(getAt(jumplistkey, g_no - 1))
  30. end
  31.  
  32. on doexit
  33.   sound stop 1
  34.   go("M3", "@::JMACMENU")
  35. end
  36.  
  37. on crtopen
  38.   puppetSprite(6, 1)
  39.   repeat while the stillDown
  40.     set the memberNum of sprite 6 to 19
  41.     updateStage()
  42.   end repeat
  43.   set the memberNum of sprite 6 to 16
  44.   updateStage()
  45.   puppetSprite(6, 0)
  46. end
  47.  
  48. on crtclose
  49.   puppetSprite(7, 1)
  50.   repeat while the stillDown
  51.     set the memberNum of sprite 7 to 20
  52.     updateStage()
  53.   end repeat
  54.   set the memberNum of sprite 7 to 17
  55.   updateStage()
  56.   puppetSprite(7, 0)
  57. end
  58.  
  59. on crtback
  60.   puppetSprite(21, 1)
  61.   repeat while the stillDown
  62.     set the memberNum of sprite 21 to 40
  63.     updateStage()
  64.   end repeat
  65.   set the memberNum of sprite 21 to 39
  66.   updateStage()
  67.   puppetSprite(21, 0)
  68. end
  69.  
  70. on crtnext
  71.   puppetSprite(20, 1)
  72.   repeat while the stillDown
  73.     set the memberNum of sprite 20 to 38
  74.     updateStage()
  75.   end repeat
  76.   set the memberNum of sprite 20 to 37
  77.   updateStage()
  78.   puppetSprite(20, 0)
  79. end
  80.  
  81. on crtclose2
  82.   puppetSprite(22, 1)
  83.   repeat while the stillDown
  84.     set the memberNum of sprite 22 to 42
  85.     updateStage()
  86.   end repeat
  87.   set the memberNum of sprite 22 to 41
  88.   updateStage()
  89.   puppetSprite(22, 0)
  90. end
  91.  
  92. on crtprof
  93.   puppetSprite(8, 1)
  94.   repeat while the stillDown
  95.     set the memberNum of sprite 8 to 21
  96.     updateStage()
  97.   end repeat
  98.   set the memberNum of sprite 8 to 18
  99.   updateStage()
  100.   puppetSprite(8, 0)
  101. end
  102.